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MODULE REMOVE ( meat ta satl 
[DENT = rett : 


BEGIN 
' 

i 
! 
ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 


ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND CO 
: LY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH 
!* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OT 


| 
Blis 4.0-742 Page 1. 
VMSMASTER:CF11X.SRCIREMOVE .832; 1 (1) | 


SHKKAKAKAAHAAAAAAAAAAAAEAAAAAAAAAAAEATAEAERAAAEARAAAAAAARATAAARARAERAAARAeAee 


R 
!* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
!® QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


!@ TRANSFERRED. 


i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


'® CORPORATION. 


'® DIGITAL ASSUMES NO ~ Ay: 


161 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


BILITY FOR THE USE OR RELIABILITY OF ITS 


VaR REAR RRR RARER AAAAA AERA AAA AAA ARATE TATA TAAAAAAARAAAARARERARAAE AES 


e 
+ 


FACILITY: F11ACP Structure Level 2 
ABSTRACT: 

This routine removes a directory entry. 
ENVIRONMENT : 


STARLET operating system, including privileged system services 
and internal exec routines. 


AUTHOR: Andrew C. Goldstein, CREATION DATE: 15-Jan-1978 20:19 
MODIFIED BY: 


v03-001 CDS0001 Christian D. Saether 30-Dec-1983 
Use L_NORM Linkage and BIND_COMMON macro. 


v02-007 aceoes® Andrew C. Goldstein, 26-Jan-1982 


remove updating of directory index. 


d mode to keep a name with no versions for autopurge; 


wn 
Wr—O0o 


SSS. 


ss 


—> 4 


VO2=096 ACG0208 wy C. Goldstein, 
Change guclaverton of directory context 


v02-005 ACG0167 Andrew C. Goldstein 
Previous revision history moved to F118. 


LIBRARY ‘SYS ss. 18 Hath rast -L32'; 
REQUIRE *SRC 


IEScoc198e 93:08:15 yee 


iss-32_ V4,0-74 
LnGhad eRe cf 1180 CRE IREMOVE. 832; fa9 


12-Nov-1981 


ig. roro1960 
REV 


11:24 


19:27 


10 
1b-3¢ =1984 01:02:17 VAX-11 Bliss-32 V4.0-742 Pa 3 
1 =30 71382 04:98 Ns DIS SVMSMASTER:CF11X.SRCIREMOVE .B32;1 ” (2) | 
GLOBAL ROUTINE REMOVE (KEEP_NAME) : L_NORM NOVALUE = 


Ze | 
@ 
om 


144 
' 


i FUNCTIONAL DESCRIPTION: 
This routine removes a directory entry. 


CALLING SEQUENCE: 
REMOVE (ARG1) 


SE FSFSSSSSSSSS 


PU OC OONO VE WIN 9 OODNOAUE WIN ( O OODNONEWIN $0 OONAUES WNC OOMNOAUE W000 


| 
INPUT PARAMETERS: 

ARG1: 0 to remove name if all versions are gone 
to keep a name with no versions | 


IMPLICIT INPUTS: 
DIR_VBN: VBN of current directory block 
DIR_BUFFER: address of directory block buffer 
DIR_ENTRY: address of directory record found 
DIR_VERSION: address of directory version entry 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
DIR 


| 
END: address of end of directory data 

NAME: file name of directory entry 
PREV_VERSION: version number of directory entry 
| 


ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
directory entry removed, block(s) written 
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! update directory sequence count 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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i, 
5 
06 
07 BEGIN 
08 
09 LOCAL 
10 ' character scan pointer 
1 RECORD_SIZE; i size of directory record 
18 BIND_COMMON; | 
15 DIR_CONTEXT_DEF; | 
i$ EXTERNAL ROUTINE 
18 NEXT_REC : L_NORM, ' get next directory record 
19 MARK DIRTY : L_NORM, ' mark buffer for write back 
0 SHUFFLE_DIR : L_NORM, ! coapress directory 
: UPDATE_BIRSEQ L“NORM ADDRESSING _MODE (GENERAL); | 
vA 
5 


_—— OO 


' First scan to the end of the directory records and compute the size of the 


1f-3e ~Ree13Be Phi 8biS | UTS ckimGhAS TER sch Ti¢, she aRemove .032:1° aint 


' current record. Also save name and version for the cleanup. 


VERSION] | 
TJ+1, DIR_ENTRYCDIRSB_NAMECOUNT], PREV_NAME); | 


! Determine if the entry being removed is of the form xxx.DIR;1. If so, bump | 
the directory sequence count in the UCB to invalidate RMS caches. 


a VERSIONCDIRSW_VERSION) EQL 1 ! simple tests first 


BEGIN 
P = CHSFIND_SUB (.DIR_ENTRYCDIR 
3 PLIT BYT 
Hf »NOr CHSFAIL pS 
+ 4 EQL bik ENTRYCDIRS 
THEN” KERNEL FCALL (OPDATE_DIRS 


ent + rele DIR_ENTRYCDIRST_NAME), 


I 
AME] + .DIR_ENTRYCDIRS$B_NAMECOUNT] | 


$B 
iy 
N 
0); rs i 


E 
T 
E 
Determine if the record contains one or more versions. If there are 


' 
i more than one or if we are to keep the name, we just squish out the 
indicated version. 


IF .KEEP_NAME 
OR "RECORD SIZE GTRU (. DIR -ENTRYCDIRSB_NAMECOUNT) | 
DIRSC_LENGTA + DIRSC_VERSION + 1 AND NOT 1) 


THEN | 
BEGIN | 
CHSCOPY (.DIR_END = .DIR_VERSION - DIRSC aVERSION. -DIR_VERSION + DIRSC_VERSION, 

BIR GND” “DIR VERSION, ERSIO 
DIR. ENTRYCOIRSW_SIZEJ = DIR. ENTRYCOIRSY. Ree - “pirsc _VERSION; 


: If the record contains only one version, we remove the entire record. 


ELSE | 


BEGIN 
CHSCOPY (.DIR_END - pir ENTRY - .RECORD_SIZE, .DIR_ENTRY + .RECORD_SIZE, 
0, :BIR_END .BIR_ENTRY, .DIR_ENTRYS; | 

DIR. VERSION = 0; 


me ee ee ce dd ed od wd 
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! If this leaves us with an empty block, squish it out. Otherwise, just 


ee 


Pa 5 Rf 
DISKSVMSMASTER:CF11X.SRCIREMOVE.B32; 1 (2) vi 


v04=000 


d 10 
16-Sep-1984 01:02:1 VAX=11 Bliss-32_V4,0-74 
1 =Sep-19 4 9339845 Bliss=52 V4 .0-742 


; } 3 1178 write it. But don't squish out the Last block of an empty directory. ; 
5 4 1174 : 
ra 1175 IF .DIR_BUFFERCDIRSW_SIZE] EQL 65535 : 
; } 1328 a -DIR_FCB PCBS EFBLRD GTRU § ; 
Bh 1128 SHUFFLE_DIR (1) : 
Ss 117 ELSE ; 
; ie? MARK_DIRTY (.DIR_BUFFER); : 
Ee 1182 END; ! end of routine REMOVE ‘ 
TITLE REMOVE | : 
[IDENT \V04-000\ | ; 
.PSECT S$CODE$,NOWRT,2 | ; 
52 49 44 2€ 00000 P.AAA: ASCII \.DIR\ ; ; 
EXTRN NEXT_REC, MARK_DIRTY | : 
.EXTRN SHUFFLE_DIR, UPDATE_DIRSEQ ; 
O3FC 00000 .ENTRY REMOVE Save R2,R3,R4,R5,R6,R7,RB,RP : 1058 : 
57 OODc CA 9E 9000¢ MOVAB : O(BASE), R7 : 1100 : 
56 08 A? 9E 0000 MOVAB ( : 1102 | ; 
<8 10 A? 3 00008 MOVAB 16(R75, : | ; 
68 66 00 O000F MOVL (R6), (RB) : 1118 : 
FFFF BF 00 68 BI 0012 1$ CMPW 3s @O(RB), #65535 + 1119 ; 
0¢ 13 0001 BEQL = 2$ : ; 
6 DD OOO1A PUSHL (RB) : 1120 : 
00006 CF 1 FB 0001C CALLS #1, NEXT_REC : ; 
68 50 00 90021 MOVL RO, (RB) ; : 
FC 11 00024 BRB 1$ : . 
68 2 c0 00086 2$: ADPL2 +f (RB) : 1134 ; 
59 00 86 3C 00029 MOVZWL @0(R6), RECORD SIZE : 1123 : 
59 02 ai) 909 D ADDL2 #2, RECORD_SIZE : : 
18 6A 0 £9 0030 BS #9. (BASE); 3$ + 1124 ; 
0152 CA 0c «B7 0034 CVTWL @12(R7), 338(BASE) : 1127 : 
50 66 DO 0003A OVL  (R6), RO > 1128 | : 
51 05 AO 9A 00030 MOVZBL 5(ROS, R1 : ; 
1 6 0041 INCL. R1 ; ; 
0156 «CA 0S a0 1 : 00043 MOVC3 R1, 5(RO), 342(BASE) : : 
02 AA 80 F 88 O04A BISB2 #138 2 (BASE) + 1129 | ; 
01 C 8 81 4F 3$: CMPW = a@12(R7), #1 : 1136) : 
3 2 0093 BNEQ 5$ : ; 
50 66 D0 00 23 MOVL (R6), RO > 1139 ; 
1 05 A A 90) MOVZBL 5(ROS, R1 ; ; 
51 9c oF 4 3 99 MATCHC #4, P.AAA, R1, 6(RO) + 1140 : 
5% 6 BEQL 4$ : | 3 
53 4 0 6 MOVL #4, R ; | : 
5 4 ¢ 68 4$ SUBL2 #4, R ; : 
. 4 68 BEQL ; 1141 | : 
3 04 C $ ADDL2 #4, R3 : 1142 | ; 
1 66 MOVL (R6), RI : | ; 
9 05 Al 9A 0007 MOVZBL 5(R15 Ro : | : 
V . s é 
6 A140 9E 0007 MOVAB 6(R1)(ROJ, RO 


Library Statistics 


10 
15. Sep-1984 :1 VAX-11 Bliss-32 V4.0-742 Page 6 
2: obep- 1984 9: 96: if Disk KSVMSMASTER: CF ITix. SREJREMOVE .B32:1 9 2) 
50 7¢ CMPL R3, RO : 
07 } 7F BNEQ 3 : 
000000006 0 0 F 1 CALLS UPDATE_DIRSEQ > 1143, 
06 AC E 5$: Blas KEEP _NAME , “68 : 1151) 
66 p C MOVL {R6)- ; 113¢. 
0S Aad 9A F MOVZBL 5(ROS, RO + 1153) 
F £0 3 ADDL2 #15, RO : 
1 BA 3% BICB2 «#1, R : | 
9 D1 CMPL RECORD.SIZE, RO + 1152. 
19 1 09C BLEQU 7 : 
50 OC AZ 00 O0009E 68 MOVL.  12(R7), RO : 1156) 
58 $ 30 § A SUBL3 RO, (RB), RB : 
1 F8 AB SE OOOA i - (RB) 1 : 
v ° P ° ° 3 
oR 00 08 Ad 31 2¢ SOA MOVCS R1, 8(RO), #0, RB, (RO) 1157 
00 86 88 a2 0081 SUBW2 #8, @0(R6) : 1158 
14 11 00085 BRB 8$ + 1151 
58 6 C3 0087 7$: SUBL (R6) (RB) Rg, + 1166 
9 5 008B SUBL3 RECORD ze RO ; 
58 00 00 8649 * 30 C O0Br mMovCS = RO, BOTROS kecono™ SIZE], #0, RB, a0(R6) ; 1167 
0c BC D4 0008 CLRL =: 12(R7?) + 1168 
FFFF BF 04 87 B81 000CB 8S CMPW 30s 4 (R7), #65535 + 1175 
14 12 00001 BNEQ 9S : 
50 0000 CA DO 00003 MOVL § 208(BASE), RO + 1176 
01 3¢ }=6AO-—sD1 «00008 CMPL  60(RO), #4 : | 
09 1B 0000C BLEQU 9$ ; 
7E 1 CE OOODE MNEGL #1, (SP) + 1178 
00006 CF 01 FB 900E| CALLS #1, SHUFFLE_DIR F | 
04 449 | RET 3 
04 A? DD OO0E7 9$ PUSHL  4(R7) + 1180 
00006 CF 01 FB OOOEA CALLS #1, MARK_DIRTY ; 
04 OOOEF RET : 1182, 
; Routine Size: 240 bytes, Routine Base: S$ CODE$ + 0004 | 
3 196 1183 1 | 
+ 195 1184 1 END 
> 196 1185 0 ELUDOM | 
: PSECT SUMMARY 
: ame ytes ributes 
N Byt Attribut 
: $SCODES 244 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


—™N 


R 6-Sep-1984 VAX=11 BLiss-32 V4. 0-742 | 
ve-000 if Bee-198e Mi9bits | DT oUmGMAStERscH Tix. sRcaREnoveE. 832:1°%* (2), 
tr eo SS TE ae AD nape ose Syabel§ cccecece Pages Processing 

; File Total Loaded Percent Mapped Time 
;  .$255$DUA28:(SYSLIBILIB.L32;1 18619 24 0 1000 00:02.0 

; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE)/LIS=LIS$:REMOVE/OBJ=OBJ$:REMOVE MSRC$:REMOVE/UPDATE=(ENH$: REMOVE ) 


Size: 240 goge + 4 data bytes 


F Blessed: Time: 01:07. 
3; Lines/CPU Min: 3956 
§ cme A Regie 49255 
3 Used: 227 pages 


| 
; COMMAND QUALIFIERS 
| 
| 
; Compilation: Complete 
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